home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / CAD / PKEY11_1.ARJ / UT.LSP < prev    next >
Text File  |  1992-03-14  |  527b  |  16 lines
  1. ;Easy underline text
  2. ;
  3. ;                     ********Patrick J. McKee, author********
  4. ;                       ****Copyright 1992, Power Key tm****
  5. ;
  6. (Defun c:ut()
  7. (prompt "\nselect text to underline.")
  8. (setq ss(ssget)len(sslength ss)count 0)
  9. (while(not(equal len count))
  10. (setq ent(entget(ssname ss count)))
  11. (if(equal(cdr(assoc 0 ent))"TEXT")
  12. (progn(setq text(cdr(assoc 1 ent))
  13.             text(strcat "%%u" text "%%u")
  14.             ent(subst(cons 1 text)(assoc 1 ent)ent))
  15. (entmod ent)))
  16. (setq count(1+ count))))